home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
mailmen.arc
/
MAILED.PRG
< prev
next >
Wrap
Text File
|
1991-01-10
|
4KB
|
158 lines
* MAILED.PRG - PROGRAM FOR EDITING MAILIST FILES
* COPYRIGHT NOVEMBER 14, 1983 BY PHILIP K. PERLMAN
SET TALK OFF
POKE 1047,10
STORE T TO ED
DO WHILE ED
STORE T TO DULY
DO WHILE DULY
ERASE
USE MAIL
? "YOU CAN LOCATE THE FILE BY THE INDIVIDUAL'S NAME OR COMPANY NAME"
?
?
?
ACCEPT "ENTER LAST NAME" TO NAME
?
?
?
ACCEPT "ENTER FIRST NAME" TO NAME1
?
?
?
ACCEPT "ENTER COMPANY NAME" TO COMP
STORE !(NAME) TO NAME
STORE !(NAME1) TO NAME1
STORE !(COMP) TO COMP
IF COMP = ' ' .AND. NAME <> ' '
USE MAIL INDEX LAST
FIND &NAME
IF # <> 0
STORE 1 TO REC
STORE F TO DULY
ELSE
STORE 0 TO REC
STORE F TO DULY
ENDIF
DO WHILE LAST = NAME .AND. NAME1 <> ' ' .AND. !(FIRST) <> NAME1
SKIP
ENDDO
ELSE
IF NAME = ' ' .AND. COMP <> ' '
USE MAIL INDEX COMP
FIND &COMP
IF # <> 0
STORE 1 TO REC
STORE F TO DULY
ELSE
STORE 0 TO REC
STORE F TO DULY
ENDIF
ENDIF
ENDIF
ENDDO
IF REC = 0
ERASE
STORE ' ' TO ANS3
@ 10,5 SAY "Record Cannot Be Found."
@ 12,5 say "Press 'N' to Return to the Menu"
@ 14,5 SAY "Press Any Other Key to Try Again."
@ 14,70 get ANS3
READ
CLEAR GETS
IF !(ANS3) = 'N'
STORE F TO ED
STORE F TO DULY
RETURN
ELSE
STORE T TO DULY
STORE ' ' TO ANS
ENDIF
ENDIF
do while REC = 1
STORE ' ' TO ANS
ERASE
@ 1,1 SAY 'Company' get company
@ 3,1 say 'Name'
@ 3,5 get LAST
@ 3,27 GET FIRST
@ 4,1 GET ADDR1
@ 4,40 SAY 'Office Tel.' GET TEL:WRK
@ 5,1 GET ADDR2
@ 5,40 SAY 'Home Tel.' GET TEL:HM
@ 6,1 GET CITY
@ 6,27 GET STATE
@ 6,31 GET ZIP
@ 8,1 SAY 'Birthday' GET BIRTHDAY
@ 8,20 SAY 'Friend' get friend
@ 8,30 say 'Business' get bus:xmas
@ 10,1 say 'Priority 1' get prof1
@ 11,1 say 'Priority 2' get prof2
@ 12,1 say 'Priority 3' get prof3
@ 14,1 say 'Comments'
@ 14,11 get mcom1
@ 15,11 get mcom2
?
? "+-------------------------------------------------------------------------+"
? "| SELECT: E> Edit this Record D> Delete this Record |"
? "| N> To Return to Menu R> Review other Records |"
? "+-------------------------------------------------------------------------+"
?
WAIT TO ANS
IF !(ANS) <> 'E' .AND. !(ANS) <> 'D' .AND. !(ANS) <> 'N' .AND. !(ANS) <> 'R'
ERASE
LOOP
ELSE
IF !(ANS) = 'E'
? "PRESS CONTROL W '^W' OR THE ENTER KEY TO REACH THE BOTTOM OF PAGE AND "
? "COMPLETE EDITING"
READ
STORE 0 TO REC
ELSE
IF !(ANS) = 'D'
ERASE
? "ARE YOU SURE ABOUT THAT (Y OR N) ?"
?
?
?
?
WAIT TO SURE
IF !(SURE) = 'Y'
DELETE
PACK
STORE 0 TO REC
ELSE
STORE 0 TO REC
ENDIF
ELSE
IF !(ANS) = 'N'
STORE 0 TO REC
STORE F TO ED
ERASE
RETURN
ELSE
IF !(ANS) = 'R'
STORE 0 TO REC
ENDIF
ENDIF
ENDIF
ENDIF
ENDDO
ERASE
IF !(ANS) = 'D' .OR. !(ANS) = 'E'
store ' ' to ans1
@ 10,5 SAY "Press 'N' to Return to The Menu"
@ 12,5 Say "Press Any Other Key To Continue Editing"
@ 12,60 get ans1
read
clear gets
if !(ans1) = 'N'
store f to ed
erase
return
else
erase
ENDIF
endif
ENDDO
VINCENT TROCCHIA AIA VINCENT TROCCHIA 50 WEST 29TH STREET NYC VINCENT TROCCHIA AIA VINCENT TROCCHIA 50 WEST 29TH STREET NYC